

replace kom=190 if inlist(kom,189,207) & year<2007
replace kom=210 if inlist(kom,208,227) & year<2007
replace kom=219 if inlist(kom,219,231) & year<2007
replace kom=230 if inlist(kom,181,205) & year<2007
replace kom=240 if inlist(kom,171,235,237) & year<2007
replace kom=250 if inlist(kom,209,225,229,233) & year<2007
replace kom=260 if inlist(kom,211,221) & year<2007
replace kom=270 if inlist(kom,213,215) & year<2007
replace kom=259 if inlist(kom,267) & year<2007
replace kom=265 if inlist(kom,255,263,265) & year<2007
replace kom=306 if inlist(kom,305,327,343) & year<2007
replace kom=316 if inlist(kom,315,321,339,341,345) & year<2007
replace kom=320 if inlist(kom,313,351,385) & year<2007
replace kom=326 if inlist(kom,301,309,317,319,323) & year<2007
replace kom=330 if inlist(kom,311,325,331,333) & year<2007
replace kom=336 if inlist(kom,271,389) & year<2007
replace kom=340 if inlist(kom,303,335,337) & year<2007
replace kom=350 if inlist(kom,251,257,261) & year<2007
replace kom=360 if inlist(kom,355,359,363,367,379,381,383) & year<2007
replace kom=370 if inlist(kom,307,353,357,373,393) & year<2007
replace kom=376 if inlist(kom,369,371,375,387,391,395) & year<2007
replace kom=390 if inlist(kom,361,365,377,397) & year<2007
replace kom=410 if inlist(kom,429,445,451) & year<2007
replace kom=420 if inlist(kom,421,433,437,485,497,499) & year<2007
replace kom=430 if inlist(kom,425,431,473,477,497) & year<2007
replace kom=440 if inlist(kom,439,441,447) & year<2007
replace kom=450 if inlist(kom,449,489,495) & year<2007
replace kom=479 if inlist(kom,427,435,479) & year<2007
replace kom=480 if inlist(kom,423,471,483) & year<2007
replace kom=482 if inlist(kom,475,481,487) & year<2007
replace kom=492 if inlist(kom,443,493) & year<2007
replace kom=510 if inlist(kom,511,515,543) & year<2007
replace kom=530 if inlist(kom,551,565) & year<2007
replace kom=540 if inlist(kom,501,507,513,523,533,535,537) & year<2007
replace kom=550 if inlist(kom,505,517,521,525,531,541) & year<2007
replace kom=561 if inlist(kom,557,561,571) & year<2007
replace kom=573 if inlist(kom,553,555,567,573,577) & year<2007
replace kom=575 if inlist(kom,527,559,567,575) & year<2007
replace kom=580 if inlist(kom,503,519,529,539,545) & year<2007
replace kom=621 if inlist(kom,5509,621,629,623) & year<2007
replace kom=630 if inlist(kom,603,605,611,617,631) & year<2007
replace kom=615 if inlist(kom,601,609,615) & year<2007
replace kom=657 if inlist(kom,651,657,677,685) & year<2007
replace kom=661 if inlist(kom,661,679,683) & year<2007
replace kom=665 if inlist(kom,665,673) & year<2007
replace kom=671 if inlist(kom,675) & year<2007
replace kom=706 if inlist(kom,701,721,733,739) & year<2007
replace kom=707 if inlist(kom,707,725,735,747) & year<2007
replace kom=710 if inlist(kom,709,711,713,767) & year<2007
replace kom=730 if inlist(kom,717,723,729,731,747) & year<2007
replace kom=766 if inlist(kom,613,619,627) & year<2007
replace kom=740 if inlist(kom,705,743,749,771) & year<2007
replace kom=746 if inlist(kom,703,715,737,745) & year<2007
replace kom=756 if inlist(kom,625,653,663) & year<2007
replace kom=760 if inlist(kom,655,659,667,669,681) & year<2007
replace kom=779 if inlist(kom,777,779,781,783) & year<2007
replace kom=791 if inlist(kom,761,763,769,775,789,791) & year<2007
replace kom=787 if inlist(kom,765,785,787) & year<2007
replace kom=810 if inlist(kom,805,807) & year<2007
replace kom=813 if inlist(kom,813,841,847) & year<2007
replace kom=820 if inlist(kom,793,809,827,861) & year<2007
replace kom=840 if inlist(kom,833,843,845) & year<2007
replace kom=846 if inlist(kom,719,801,815,823) & year<2007
replace kom=849 if inlist(kom,803,811,835,849) & year<2007
replace kom=851 if inlist(kom,817,831,837,851) & year<2007
replace kom=860 if inlist(kom,819,821,829,839) & year<2007


